﻿Option Explicit On
Option Strict On

Imports Gadgeteer

'  Original Gadgeteer framework Copyright (c) Microsoft Corporation. (http://gadgeteer.codeplex.com/)
'  
'  Gadgeteer Light made by Stefan Thoolen (http://gadgeteerlight.codeplex.com/)
'
'  Licensed under the Apache License, Version 2.0 (the "License");
'  you may not use this file except in compliance with the License.
'  You may obtain a copy of the License at
'
'      http://www.apache.org/licenses/LICENSE-2.0
'
'  Unless required by applicable law or agreed to in writing, software
'  distributed under the License is distributed on an "AS IS" BASIS,
'  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'  See the License for the specific language governing permissions and
'  limitations under the License.
Namespace GHI_Electronics_LED7R

    Public Module Module1

        Sub Main()
            Dim socket As Integer = 1

            Dim Leds As Gadgeteer.Modules.GHIElectronics.LED7R = New Gadgeteer.Modules.GHIElectronics.LED7R(socket)
            Do
                Leds.Animate(100, True, True, False)
            Loop
        End Sub

    End Module

End Namespace